
Module guid

    Public Sub Main(ByVal args() As String)
        On Error Resume Next
        Dim count As Int32 = 1
        If args.Length() > 0 Then
            convertor.toint32(args(0), count)
        End If
        While count > 0
            Console.WriteLine(createGUID())
            count -= 1
        End While
    End Sub

End Module
